Ubaci na formu memo, editbox i button,
na onClick buttona, ide nesto slicno ovome:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
i:word;
CPos:word;
MText:string;
begin
CPos:=Memo1.SelStart;
MText:=memo1.Text;
insert(edit1.Text,MText,Cpos+1);
memo1.Text:=MText;
end;
Ovaj kod ubacije text iz editboxa na posiciju caret-a u memo
People who think they know everything tend to irritate those of us who do.