>>88

uses
Clipbrd;

begin
Clipboard.AsText := '本日は' + A;
end;