Letztes Zeichen im Editfeld...

[Sharky]

Hai Störtebeker,

eventuell wäre es so einfacher:

Delphi-Quellcode:

procedure TForm1.Edit6Change(Sender: TObject); 
var
  okay : Boolean;
  editstr : String;
begin 
  editstr := (Sender as TEdit).Text;
  okay := (Length(editstr) = 5) AND (editstr = '4451');
  Image2.Visible := okay;
  Button1.Enabled := okay;
  Image3.Visible := not (okay);
end;