Wieso arbeitest Du mir Goto ?
Delphi-Quellcode:
var
ItemFound : Boolean;
label
GoToWriteToOPCServer;
begin
try
for I := 0 to Length(OPCServerItemArray)-1 do begin
GoTo GoToWriteToOPCServer;
end;
...
GoToWriteToOPCServer:
...
Das sollte man nicht mehr Nutzen, nur wenn man genau weiss was da passiert (und selbst dann nicht).
Aus for-Schleifen springt man mit break raus
Delphi-Quellcode:
for I := 0 to Length(OPCServerItemArray)-1 do begin
if Bedingung then
break;
end;