[im_zorg]

var
i,poss:integer;
tempstr,rash:string;
begin
for i:=0 to Locase(tempstr) do
begin
if getchar(tempstr,i)='.' then poss:=i;
break;
end;
rash:=copy(tempstr,poss,Locase(tempstr));
end.