Hvordan for jeg Delphi til at indsætte

hvis du har skrevet noget i et editfelt:

Memo1.Text := edit1.Text;

eller hvis det er en bestemt text:
Memo1.Text := 'takker';

Eller Memo1.Lines.Add hvis du vil tilføje noget.

vis jeg har denne kode;

procedure TForm1.Button1Click(Sender: TObject);
begin
        Memo1.Lines.Add := 'DET VIRKER';
end;

kommer der en Fejl:

[Error] Code.pas(94): Not enough actual parameters
[Error] Code.pas(94): Incompatible types: 'Integer' and 'String'

Memo1.Lines.Add('DET VIRKER');

Hvordan for man den så til at sætte det ind det sted hvor musse makøren er makeret!

procedure TForm1.Button2Click(Sender: TObject);
var
  sl: TStringList;
begin
  sl := TStringList.Create;
  try
    sl.Text:=('DET VIRKER');
    Memo1.SetSelTextBuf(PChar(sl.Text));
  finally
    sl.Free;
  end;
end;

ovenstående kode indsætter teksten på markørens placering i din memo