[sashka]

направление решения задачи кардинально было изменено, хоть результат замечательный
добавил:

Код:

procedure TForm1.Label1Click(Sender: TObject);
var
 Clipboard: TClipboard;
begin
 Clipboard:= TClipboard.Create;
 Clipboard.SetTextBuf(PChar(Label1.Caption));
 FreeAndNil(Clipboard);
end;

программка готова к использованию.