procedure TForm1.Button1Click(Sender: TObject); begin with Memo1 do Edit1.text:=Lines[Lines.Count-1]; end;