providersuche

[double_slash]

jo danke leute hab mir das jetzt so gedacht :

procedure TForm1.ProviderBitBtnClick(Sender: TObject);
var s,x:string;
i,j:integer;
begin
s:=provideredit.Text;
i:=pos('@',s);
j:=pos('.',s);
x:=copy(s,i+1,j-i-1);
label1.caption:=x;

is das richtig?