Indsætte en linie i synedit

Jeg har et synedit felt hvor jeg vil have at når man trykker på en knap så indsætter den det der står i knappen, i synedit feltet.

Kode 

var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  if Form1.Components[i] is TSynEdit then
    TSynEdit(Form1.Components[i]).Lines.Add('blabla');

Jeg har et synedit felt hvor jeg vil have at når man trykker på en knap så indsætter den det der står i knappen, i synedit feltet.

Noget i stil med det her burde vel virke:

Kode 

var
  i: integer;
begin
  for i := 0 to Form1.ComponentCount - 1 do
  if Form1.Components[i] is TSynEdit then
    TSynEdit(Form1.Components[i]).Lines.Add('blabla');

Bemærk at hvis du har oprettet flere synedit's vil der blive tilføjet en linje i dem alle! Hvis du vil have flere synedit's på samme tid bør du nok overveje at lave f.eks. et array hvor du kan gemme den i så det bliver lettere at finde ud af hvilken synedit det er du vil putte tekst ind i.

Hvor skal det stå henne?

Hvor skal det stå henne?



I din knaps OnClick event f.eks.

Helt nøjagtig så skriver den dette:

[Error] Unit1.pas(145): '[' expected but 'IS' found
[Error] Unit1.pas(146): Missing operator or semicolon
[Error] Unit1.pas(146): '[' expected but ')' found
[Error] Unit1.pas(45): Unsatisfied forward or external declaration: 'TForm1.TBItem11Click'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'



Mvh
Jesper

Nu virker det sådan da. Den indsætter godt nok linien, men den skal indsætte det der hvor makøren er.
Mvh
Jesper

Hvordan gør man i en richedit? Kan du ikke lave en komplet kode og så kan jeg jo se om det virker.

Kode 

  with RichEdit1 do
  begin
    SelText := 'blablabla';
    SetFocus;
  end;