como pegar somente o nome do arquivo no path

ExtractFileName(Nome_Do_Arquivo)

Bom dia meus caros,

Estou tendo dificuldade em extrair um nome de um arquivo ex:

A minha imagem é jpg e eu converto em gif sendo que eu gostaria de extrair o nome da imagem jpg e converter para gif com o mesmo nome do jpg e não estou conseguindo, pois o sistema esta funcionando normalmente. veja o código a baixo:

procedure TFormConversorGif.BitBtn3Click(Sender: TObject);
var
jpg : TJPEGImage;

begin
Button1.Click;
jpg := TJPEGImage(Image1.Picture.Graphic);
if jpg.CompressionQuality <= 20 then
begin
ShowMessage('Imagem compactada!');
Exit;
end;

jpg.CompressionQuality := 20;
jpg.Compress;
//jpg:='c:\diretorio\GEAP.gif';
//jpg:=ExtractFileName(nomecompleto);
jpg.SaveToFile('C:\Documents and Settings\Administrador\Desktop\Scanner\GEAP.gif');
end;

ti.garrido@live.com