[Страдалецъ]

А такой вариант?:

Код:

procedure TForm35.FormCreate(Sender: TObject);
begin
 Image1.Canvas.Brush.Color := clGreen;
 Image1.Canvas.FillRect(Image1.ClientRect);
 Image2.Canvas.Brush.Color := clGreen;
 Image2.Canvas.FillRect(Image2.ClientRect);
end;

procedure TForm35.ImageContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
 if TImage(Sender).Canvas.Brush.Color = clGreen
 then N1.Caption := 'Старт'
 else N1.Caption := 'Стоп';
 if Sender = Image1
 then N1.Tag := 1
 else N1.Tag := 2
end;

procedure TForm35.N1Click(Sender: TObject);
Var Image: TImage;
begin
  case N1.Tag
  of 1: Image := Image1;
     2: Image := Image2;
  end;
 if Image.Canvas.Brush.Color = clRed
 then Image.Canvas.Brush.Color := clGreen
 else Image.Canvas.Brush.Color := clRed;
 Image.Canvas.FillRect(Image.ClientRect);
end;