Hallo,
in Deinem Code fehler so einige begin und ends.
Wenn Du in einer if Abfrage mehrere Befehle ausführen wills
solltest Du diese in begin end einfassen.
Ansonsten wird nur der erste Befehl ausgeführt.
Der zweite wird unabhängig vom Ausgang der if Abfrage
im ausgegührt.
Delphi-Quellcode:
if erraten = 0 then
begin
falsch := falsch + 1;
LbFehler.Caption := IntToStr(falsch);
with ImBild.Canvas do
begin
if falsch = 1 then
begin // fehlt bei Dir
moveto (50,150);
lineto (50,250);
end // fehlt auch bei Dir
end;
end;
Übersichtlicher würde es auch, wenn Du case statements verwenden würdest:
Delphi-Quellcode:
with ImBild.Canvas do
begin
...
case falsch of
1: begin
...
end;
2: begin
...
end;
end //case
end // with
Grüße
Klaus