[cloayza]

Creo que el problema está aquí...

Código Delphi [-]
procedure TConsulta.cxButton3Click(Sender: TObject);
begin
    if OpenDialog1.Execute then
         //Edit1.Text:=OpenDialog1.Files.Text;
         Edit1.Text:=OpenDialog1.Filename;
end;

Prueba realizando este pequeño cambio