¿copiar caracteres hasta ?

[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
S:String;
s1,s2:String;
n:Integer;
n1:integer;
begin
s:='ClubDelphi.com';
n:=Pos('.',s);
n1:=Length(s)-n;

S1:=Copy(s,1,n-1);
S2:=Copy(s,n+1,n1);

ShowMessage(s1);
ShowMessage(s2);

end;

Mira este ejemplo.

Un Saludo.