Nach bestimmer Variable bestimme Aktion ausführen

[Sir Rufo]

Am elegantesten löst du das mit einer Eigenschaft (property ).
http://docwiki.embarcadero.com/RADSt.../Eigenschaften

Delphi-Quellcode:

TMyForm = class( TForm )
  Wert_Label : TLabel;
  Image1 : TImage;
  Image2 : TImage;
private
  FWert : integer;
  procedure SetWert( const Value : Integer );
  procedure PresentWert;
public
  property Wert : Integer read FWert {Getter} write SetWert {Setter};
end;

procedure TMyForm.SetWert( const Value : Integer );
begin
  if Value = FWert then
    Exit;

  FWert := Value;
  PresentWert;
end;

procedure TMyForm.PresentWert;
begin
  Wert_Label.Caption := IntToStr( FWert );
  Image1.Visible := ( FWert <= 2 );
  Image2.Visible := ( FWert > 2 ) and ( FWert <= 5 );
end;

Im OnCreate-Event der Form einfach noch PresentWert; aufrufen und die Form ist passend vorbereitet.