Rahmenwahl und Cursorstandpunkte

[ChinEnte]

Und wieder einmal haben wir zwei Fragen:

• Wie lese ich aus einem eingelesenen Bild einen Rahmen aus, der mittels X- und Y-Koordinaten angegeben wird, Farbwerte ab und geben sie aus? Generell wissen wir, wie wir ablesen und ausgeben, aber wir wissen nicht, wie wir das pixelspezifisch und innerhalb eines Rahmens machen.
• Wir würden gerne die Position des Cursors laufend angeben. Dies machen wir über Canvas.textout. Leider funktioniert das nur, wenn keinerlei Dinge wie Buttons, Images, etc. "Im Weg" stehen. Was tun? Warum funktioniert der angegebene Code nicht, wenn er über Buttons etc. geht?

Code:

procedure TForm1.Position(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
canvas.textout(clientwidth-70, clientheight-15, 'X:');
canvas.textout(clientwidth-60, clientheight-15, inttostr(X));
canvas.textout(clientwidth-30, clientheight-15, 'Y:');
canvas.textout(clientwidth-20, clientheight-15, inttostr(Y));
end;

Mit hoffe auf rasche Antwort,

Andi und Philipp