danke
hm ich dachte man könnte eunfach auch den namen der funktion nehmen statt result.
meinst du es dann so:
Delphi-Quellcode:
function neu (Gew: TLottofeld; bisher, wert: Byte): Boolean;
var bool: boolean;j: Byte;
begin
bool:=false;
for j:=bisher downto 1 do
begin
if Gew[j] <> wert then
bool:=true;
result:=bool;
end;
end;