Øøh.. et lille problem :/

Har et lille problem, der er noget glat med denne kode ([Error] Unit1.pas(84): Incompatible types: 'TLabel' and 'String'):

Kode 

var
  alinkpxpt, alinkfont, alinkcolor, alinksize, alinkbold: String;

procedure Tlinkstyle.genererClick(Sender: TObject);
begin
    kodebox.Lines.Text := '';

  if Px.Checked then
    alinkpxpt := 'px'
  else
    alinkpxpt := 'pt';

  if boldbox.Checked then
    alinkbold := 'bold'
  else
    alinkbold := 'plain';



  // Color
  if alinkcolor.Text = '' then
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Farve (a:link)')
   else
  begin
    kodebox.SelText := 'a:link {';
    kodebox.SelText := 'color: '+alinkcolor.Text+';'#13#10;
  end;
  // Color

  // Font
  if alinkfont.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Skrifttype (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-family: '+alinkfont.Text+';'#13#10;

  // Font

  // Size
if alinksize.Text = '' then
  begin
    ShowMessage('Du skal huske at skrive noget i:'#13#10'Størrelse (a:link)');
    kodebox.Lines.Text := '';
  end
  else
    kodebox.SelText := 'font-size: '+alinksize.Text+alinkpxpt+';'#13#10'font-weight: '+alinkbold+';'#13#10;
end;
  // Size

Håber i vil hjælpe