Du könntest es doch mit DrawFocusRect machen, oder willst Du eine durchgehende farbige Linie?
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
(Sender as TImage).Canvas.DrawFocusRect((Sender as TImage).ClientRect);
end;
Müsstest Dir nur merken welches den Focus hat und die die Funktion ein zweites mal aufrufen.
erstes Mal markiert
zweites Mal demarkiert