unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
uses StrUtils;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  sFileName: string;
begin
  if OpenDialog1.Execute then begin
    sFileName := ExtractFileName(OpenDialog1.FileName);
    Delete(sFileName,
      Pos('.',sFileName),
      Length(sFileName) -  Pos('.',sFileName)+1);
    Edit1.Text := ExtractFileName(sFileName);
    Edit2.Text := ExtractFileExt(OpenDialog1.FileName);
  end;
end;
end.