Alguém sabe uma função que pegue a Extensão de um arquivo?

Olá,
existe a função ExtractFileExt(), que retorna a extensão do arquivo, incluindo o ponto.

Existe também ExtractFilePath, que retorna o caminho do arquivo e ExtractFileName, que retorna o nome do arquivo.

Espero ter ajudado.
Vinicius.

coloque no form um OpenDialog, um Button

no OnClick do button escreva:

procedure TForm1.Button1Click(Sender: TObject);
var
caminho:string;
begin

if OpenDialog1.Execute then
caminho := ExtractFileExt(OpenDialog1.FileName);

ShowMessage(caminho);

end;

{
funções do Delphi:
ExtractFileExt( NomeDoArquivo ); // para saber a extensao
ExtractFileName( NomeDoArquivo ); // para saber o nome do arquivo
ExtractFilePath( NomeDoArquivo ); // para saber o caminho do arquivo
}