03-12-2011, 02:03 PM
وعليكم السلام
كود :
uses Clipbrd;
procedure TForm1.Button1Click(Sender: TObject);
begin
Clipboard.AsText := Memo.Lines.Strings[0];
end;