Как создать переменную и использовать ее из буфера обмена.

[pavellyba]

Как создать переменную и использовать ее из буфера обмена? Ну например переменная gryp:integer должна быть отправлена в буфер обмена, а потом использоваться другой программой.

[Silver_S]

uses Clipbrd;

procedure Something(gryp: integer);
var
  clb: TClipboard;
begin
  clb := Clipboard;
  clb.SetTextBuf(IntToStr(gryp));
end;

[DenNik2006]

uses
  Clipbrd;

procedure TForm1.Button2Click(Sender: TObject);
var
  g: integer;
begin
  g:= 123456;
  Clipboard.SetTextBuf(PChar(IntToStr(g)));
  // или
  Clipboard.AsText:= IntToStr(g);
end;