Abrir archivo

[MaxiDucoli]

Si, es verdad.
Fui a lo simple para poder seguir intentando y no expliqué bien el tema.

Tengo un TButton al que dentro del mismo tengo este código.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
abrir : TOpenDialog;
adjunto : string;
begin
abrir := TOpenDialog.Create(self);
if abrir.Execute then adjunto := abrir.FileName;
abrir.Free;
end;

Sé que se ve muy simple y rústica, pero estoy en pruebas, ya que no me hace nada al ejecutar el programa.
Hago click en el botón, pero solo hace el efecto del click y nunca me abre ningún diálogo para yo poder seleccionar algún archivo.

Hay alguna manera de poder hacer aparecer el menú de compartir que te dá el android por defecto y de ahí usar alguna otra aplicación para seleccionar el archivo que se quisiera adjuntar?

Gracias!!