Tengo problemas con OpenPictureDialog !!

[dec]

Hola,

No termino de aclararme. No sé si obtienes algún error. Si es así sería bueno que lo indicaras literalmente, es decir, el texto del mensaje de error. Por otro lado, me llama la atención que este código, simplemente, compile:

Código Delphi [-]
procedure TFrmRegistrarNuevaLaptop.CmdBuscarClick(Sender: TObject);
begin
  If self.AbrirImagenLaptop.Execute then
    self.TxtImagenLaptop.Text := ExtractFileName(AbrirImagenLaptop.FileName);
  else
    self.TxtImagenLaptop.Text := '';                  
end;

¿Por qué? Por el "punto y coma" luego de "ExtractFileName(AbrirImagenLaptop.FileName)". No debería haber ahí ningún punto y coma, puesto que, de haberlo, el programa no compilaría. ¿Tal vez omitiste algo de código de ese procedimiento? ¿O qué pasa ahí?