Delphi-Quellcode:
begin
if Edit2.Text=eng[x] then
begin
ShowMessage('correct');
inc(iAnzahlRichtigeAntworten);
mischen;
end
else
begin
ShowMessage('false, the right answer is '+eng[x]);
inc(iAnzahlFalscheAntworten);
mischen;
end
end;
begin
close;
ShowMessage('You answered iAnzahlRichtigeAntworten out of 6 correctly.
you answered iAnzahlFalscheAntworten wrong.')
end;
so klappt das eigentlich alles nur leider nicht das mit der message..wir wissen nicht weiter