procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.caption := ExtractFilePath(Application.ExeName);
end;