procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
begin
  if FileExists(Edit1.Text) then begin
  s := ExpandFileName(Edit1.Text);
  ShowMessage('Диск с файлом - ' +
  ExtractFileDrive(s) + #10#13 +
  'Путь к файлу - ' + ExtractFilePath(s) + #10#13 +
  'Директория с файлом - ' + ExtractFileDir(s) + #10#13 +
  'Имя файла - ' + ExtractFileName(s) + #10#13 +
  'Расширение файла - ' + ExtractFileExt(s) + #10#13 +
  'Полное имя файла - ' + s);
  end else ShowMessage('Файл ' + Edit1.Text + ' не существует.')
end;