procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.InitialDir:='C:\'; if OpenDialog1.Execute then end;