[angvelem]

Код:

procedure Button1Click(Sender : TObject);
begin
  if Edit.Text = 'ok' then
    Memo2.Text := Memo1.Text;
end;