направление решения задачи кардинально было изменено, хоть результат замечательный
добавил:
Код:
procedure TForm1.Label1Click(Sender: TObject);
var
Clipboard: TClipboard;
begin
Clipboard:= TClipboard.Create;
Clipboard.SetTextBuf(PChar(Label1.Caption));
FreeAndNil(Clipboard);
end;
программка готова к использованию.