¿copiar caracteres hasta ?

[ecfisa]

Hola JXJ.

Otro modo más:

Código Delphi [-]
procedure SplitStr(const Delimiter: Char; Input: string; const Strings: TStrings) ;
begin
   Assert(Assigned(Strings)) ;
   Strings.Clear;
   Strings.Delimiter := Delimiter;
   Strings.DelimitedText := Input;
end;

Llamada ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Ts: TStrings;
begin
  Ts:= TstringList.Create;
  SplitStr('.', 'clubdelphi.com', Ts);
  Memo1.Lines:= Ts;
end;

Un saludo.