1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

function TForm1.startnummercheck(var doppelt:boolean);
var x,i,startnum_int_edit,startnum_int_list:integer;
    startnum_str_list:string;
begin
x := stringgrid1.RowCount;
for i := 1 to x do
  begin
    startnum_str_list := stringgrid1.Cells[0,i];
    startnum_int_list := StrToInt(startnum_str_list);
    startnum_int_edit := StrToInt(Edit1.Text);
    if startnum_int_list = startnum_int_edit then doppelt := true;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:

function MeineFunktion(Parameter: Integer): Boolean;
begin
  if (Parameter > 0) then // übergebener Wert > 0?
    Result := TRUE // ja, Ergebnis setzen
  else
    Result := FALSE; // nein, auch setzen
end;