procedure TForm3.Button1Click(Sender: TObject);
var a:integer;
begin
a:=strtoint(edit1.Text);
if (i<a) or (a<1) then showmessage('in der eingegebenen Zeile befindet sich kein Spiel.')
else begin;
end;
Du sollest auch vorher prüfen, ob im Edit1 eine Zahl steht. Sonst kracht es beim Zuweisen auf einen Integer.
Oder du verwendest
TryStrToInt