Fórum Area de transferência #259279

uses Clipbrd;

var
   vetor1: array[1..10] of String ;
   vetor2: array[1..10] of String ;
   vetor3: array[1..10] of integer ;
   vetor4: array[1..10] of integer ;

procedure TForm1.Button1Click(Sender: TObject);
var
   S: string;
   I: integer;
begin
   S := ´´;
   for I := 1 to 10 do
      S := S + vetor1[i] + vetor2[i] + IntToStr(vetor3[i]) + IntToStr(vetor4[i]) + 1310;

  Clipboard.AsText := S;
end;