Showmessage besked kun en gang

Du har 2 muligheder
1) Afbryd timeren lige før du laver ShowMessage
2) Sæt et flag (en boolean) som fortæller dig om der har været vist en meddelelse.

tak

du kunne vel ikke lave et eksempel?

/på forhånd tak

Det vil jeg gerne.
Er det 1 eller 2 jeg skal lave et eksempel for?

2'eren tak

Her er en stup kode, hvor jeg bruger et flag "BeskedVist" til at styre om beskeden skal vises eller den allerede er vist.
Læg mærke til at jeg initiere BeskedVist i Formens OnCreate event.

var
  Form1: TForm1;
  BeskedVist: Boolean;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
  var tal1, tal2, tal3: real;
begin
  if not BeskedVist then begin
    tal1:= StrToFloat(edit1.Text);
    tal2:= StrToFloat(edit2.Text);
    tal3:= StrToFloat(edit3.Text);

    if tal1>tal2 then begin
      BeskedVist:=True;
      mediaplayer1.Play;
      showmessage ('For høj temperatur!!!');
    end;
    if tal1<tal3 then begin
      BeskedVist:=True;
      mediaplayer1.Play;
      showmessage ('For lav temperatur!!!');
    end;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  BeskedVist:=False;
end;