Indsæt tekst ved cursor

Det er ikke helt nemt.

Du kan indsætte en linje med
memo1.lines.insert(\"linje nr\", \"tekst\");

Det er nu meget nemt. Du siger bare  -  ok, lad mig give dig hele programmet.
Der er en memo, en edit og en knap.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.SetSelTextBuf(PChar(Edit1.text));
end;

end.

Hej
Det er et fint eksempel men hvis du bruger det skiftes der ikke linie
Det gør denne her

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(edit1.text);
end;