Veo que has buscado en varios lados, pero se te olvido buscar en el primer lugar que debes buscar:
1. En Delphi Presiona F1
2. Busca TOPenDialog
3. Selecciona "File Name"
4. Da click en "Example"
y esto es lo que encontrarás:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
F: Textfile;
begin
OpenDialog1.Title := 'Delete File';
if OpenDialog1.Execute then begin
AssignFile(F, OpenDialog1.FileName);
try
Reset(F);
if MessageDlg('Erase ' + OpenDialog1.FileName + '?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
CloseFile(F);
Erase(F);
end;
except
on EInOutError do
MessageDlg('File I/O error.', mtError, [mbOk], 0);
end;
end;
end;