Hast du evl. ein end falsch gesetzt oder irgendwo ein Try stehen??
Versuch es mal so:
Delphi-Quellcode:
k := 10;
while k <= Length(head) do
begin
TabPos1 := posEx(#9,head,k);
if TabPos1 <> 0 then
begin
TabPos2 := posEx('[',head,TabPos1+1);
if TabPos2 <> 0 then
begin
Length1 := TabPos2-TabPos1;
MWBeztemp := Copy(head, TabPos1,Length1);
MWBez := MWBez+#9+MWBeztemp;
k := TabPos2+1;
//end;
end
else begin !!!!!!
end;
end
else begin !!!!!!!!
end;
end;