я когда то делал так (и ошибок никаких не было):
Код:
uses Clipbrd;
.....................
begin
try
Clipboard.AsText := Edit1.Text; // запись в буфер обмена
except
ShowMessage('Error write to buffer');
end;
Edit1.Text := Clipboard.AsText; // чтение из буфера обмена
end;
P.S.: если запускать из под Delphi, то
try..
except не работают, отладчик всё равно ошибку покажет