Hola.
Como ejemplo una forma seria:
Código Delphi
[-]
...
uses ClipBrd;
procedure TForm1.Button1Click(Sender: TObject);
var
CB: TClipBoard;
VStr : array of string;
i : Integer;
TS: TStrings;
begin
try
TS:= TStringList.Create;
try
CB:= TClipBoard.Create;
TS.Text:= CB.AsText;
for i:= 0 to TS.Count-1 do
begin
SetLength(VStr,i+1);
VStr[i]:= TS[i];
end;
finally
TS.Free;
end;
finally
CB.Free;
end;
end;
Saludos.