[ALexandr555]

даже при ошибке он копирует в буфер, так что я сделал не красиво. //ну в прочем как всегда

Код:

try 
text:=Clipboard.AsText;
except 
end;