CALLING CALCULATOR

//Calling Calculator
procedure TForm1.Button1Click(Sender: TObject);
begin
Winexec('Calc',Sw_Normal);
end;

//Calling Notepad
procedure TForm1.Button2Click(Sender: TObject);
begin
Winexec('Notepad',Sw_Normal);
end;

//Calling Explorer
procedure TForm1.Button3Click(Sender: TObject);
begin
Winexec('Explorer',Sw_Maximize);
end;