Programmaufruf

[Generaljim]

Hi Leute hab mal ein kleines Programm geschrieben , das mir mit hilfe von HWMonitor immer bescheid sagt (beep) , wenn der Rechner zu warm wird.
Hab das tool nur zum spaß geschrieben , lso net gleich " das tool bekommste doch überall". Und mein Problem ist jetzt das ich noch eine andere möglichkeit zum echseln der Programme beötige , da meine einfach zu langsem ist und beim spielen nicht hinhaut.
Hier mal mein Versuch.(kritik wird dankend angenommen)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  sleep((strtoint(Edit2.Text)*1000));
  Timer1.Interval:=(Strtoint(Edit3.Text))*1000;
 end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Liste.LoadFromFile('c:/Temperatur/Temperatur.txt');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
z1,z2:char;
zahl:string;
begin
  keybd_event(VK_Menu,0,0,0 );
  keybd_event(VK_Tab,0,0,0);
  keybd_event(VK_Tab,0,KeyeventF_KeyUp,0);
  keybd_event(VK_Tab,0,0,0);
  keybd_event(VK_Tab,0,KeyeventF_KeyUp,0);
  keybd_event(VK_Menu,0,KeyeventF_KeyUp,0);
  keybd_event(VK_LControl,0,0,0);
  keybd_event(83,0,0,0);
  keybd_event(83,0,KeyeventF_KeyUp,0);
  keybd_event(VK_LControl,0,KeyeventF_KeyUp,0);
  keybd_event(VK_Menu,0,0,0 );
  keybd_event(VK_Tab,0,0,0);
  keybd_event(VK_Tab,0,KeyeventF_KeyUp,0);
  keybd_event(VK_Menu,0,KeyeventF_KeyUp,0);
  z1:=Liste[11][22];
  z2:=Liste[11][23];
  zahl:=z1+z2;
 if strtoint(zahl)>Strtoint(Edit1.Text) then begin
 beep;end;
end;

initialization
Liste:=TStringlist.create;

end.

Vielen Dank im voraus schon mal.
Gruß Jim