Buscar Arquivo (Passo-a-Passo) URGENTE!!!!!

Esta função abre acaixa de diálogo padrão do Windows para a abertura de arquivos.

function OpenDialog(var Arquivo: String; const Filter: String): Boolean;
var D: TOpenDialog;
begin
D := TOpenDialog.Create(Application);
D.InitialDir := ExtractFilePath(Arquivo);
D.DefaultExt := RightVar(ExtractFileName(Arquivo),3);
D.Filter := Filter;
if D.Execute then
Arquivo := D.FileName
else
Arquivo := ´´;
Result := FileExists(Arquivo);
end;

Este procedimeto chama a função anterior e atualiza o ListBox se o arquivo foi selecionado. Obs. <cExt> é uma constante que lista as extensões com sua descrição.

procedure TForm1.Button1Click(Sender: TObject);
const cExt = ´Banco de Dados Interbase (*.gdb)|*.GDB|´ +
´Banco de Dados Omega (*.dad)|*.DAD|´ +
´Todos Arquivos (*.*)|*.*´;
var Arquivo: String;
begin
if OpenDialog(Arquivo,cExt) then
ListBox1.AddItem(Arquivo);
end;

Atenciosamente :lol:
Edgar.