نسخ نص من الدلفي

السلام عليكم

1

إستخدم OLE

var
     oWord : OLEVariant;
begin
     oWord := CreateOleObject('Word.Application');
     oWord.Visible := True;
     oWord.Documents.Add;
     oWord.selection.TypeText(Edit1.Text);
     oWord.Documents.save;
     oWord.ActiveDocument.Close;
     oWord.Quit;
     oWord := unassigned;
end;

ولا تنسى إضافة ComObj في Uses فوق

2

edit1.CopyToClipboard;

وجدت الحل الخاص بالفقرة الثانية على هذا الرابط :

/index.ph...53382&hl=ctrl+c