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í?