uses Clipbrd; procedure TForm1.Button1Click(Sender: TObject); begin Clipboard.AsText := Memo.Lines.Strings[0]; end;
Memo1.CopyToClipboard;
onexite كتب :هذا يعمل ......