[Sharky]

если я правильно тебя понял то так. Раскажу тока схематично.

Код:

procedure TForm1.Edit1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  begin
   твоя картинка типа подсветка := визибл; 
  end;