hangman programm - delphi 3

[bigben37]

Delphi-Quellcode:

      
with ImBild.Canvas do
  begin
    if falsch = 1
    then
    moveto (50,150);
    lineto (50,250);

    if falsch = 2
    then
    moveto (50,250);
    lineto (150,250);

Da fehlen begin und end.

Delphi-Quellcode:

     
if falsch = 1 then
  begin
    moveto (50,150);
    lineto (50,250);
  end;

if falsch = 2 then
  begin
    moveto (50,150);//50, 250 gibt es nicht, da das TImage nur eine Höhe von 225 Pixeln hat
    lineto (150,150);
  end;