procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  str:='E://aaa/bbb/ccc.dat';
  if pos('.',str)>0 then
       while pos('/',str)<>0 do
          str:=   copy(str,   pos('/',   str)   +   1,   length(str)   -   pos('/',  str)   +1);
          Showmessage(copy(str,1,pos('.',str)-1));
end;