Funktion problemer......

Hej !

Jeg har et problem med en funktion jeg har skruet sammen........

Pointen er at den skal fjerne Path'en fra et filnavn ( fra OpenDialog.Filename ), og finde endelsen ( ext ) og "navnet" (name), f.eks. :

c:\programmer\myWebSite\homepage.html

ext : html
name : homepage

her er hvad jeg har :

msgbox'ene er til debug.......

procedure TfrmMain.GetFileInfo(filename: string; var name: string; var ext: string);
var
  slashPos: Integer;
  Len: Integer;
  rest: Integer;
begin
    while Pos('\',filename) > 0 do begin
    {+}
        slashPos := Pos('\', filename);
        Len := Length(filename);
        rest := Len - slashpos;
        filename := Copy(filename,slashpos,rest);
    end;
    if Pos('.', filename) > 0 then begin
        name := Copy(filename,1,Pos('.', filename));
        ext  := Copy(filename,Length(name),Length(filename)-Length(name));
    end
    else name := filename;
    ShowMessage(name);
        ShowMessage(ext);
end;

jeg ved godt at ext nok vil have komma med, men problemet ligger i at jeg INTET resultat får, ( måske en masse spaces, men ellers ikke ! )....

Anyhelp anyone ?

Med venlig hilsen
Ulrik Jensen
ultik@cyberdude.com