text.endung wie krieg ich den text raus

[Die Muhkuh]

Hi,

ich weiß was er will...

Delphi-Quellcode:

function FileNameWithoutExt(const FileName: String): String;
var
  I, iPos: Integer;
  S: String;
begin
  S := ExtractFileName(FileName);

  for I := Length(S) downto 1 do
  begin
    if S[I] = '.' then 
    begin 
     iPos := I;
     Break;
    end;
  end;

  Result := Copy(S, 1, iPos);
end;

Is jetzt außem Kopf raus.