Bildschirm nach bestimmten Bitmap absuchen

[Fredyy]

Super, dass scheint schonmal zu funktionieren, jedoch funktioniert die Rückgabe der Koordianten x und y noch nicht richtig, habe die Variablen Global definiert, jedoch bleiben sie leer.
Hier meine erweiterte Funktion:

Delphi-Quellcode:

function _ImageSearch(findImage: string; tolerance: Integer): Boolean;
var
  ergebnis : PChar;
begin
  if (tolerance > 0) then findImage := '*' + inttostr(tolerance) + ' ' + findImage;

  ergebnis := ImageSearch(0,0,Screen.Width,Screen.Height,PCHAR(findImage));

  if ergebnis[0]  = '1' then
  begin
  showmessage('found' + inttostr(x) + ' ' + inttostr(y));
  result := true;
  end
  else
  begin
  result := false
  end;

end;

Danke schon einmal für die Super Hilfe.

gruß,
Fredyy