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;