Mit etwas weniger Aufwand kannst du auch einfach einen Boolean übergeben:
Delphi-Quellcode:
var
last: boolean;
last := false;
for i := 0 to anzahl-1 do
begin
if i= anzahl-1 then last:= true;
myproc(x,item[i],Last);
end;
Delphi-Quellcode:
procedure myproc(var a:integer; var b:string)
begin
if a=0 then
//diese Anweisungen sollen nur einmal am Anfang ausgeführt werden
if a>0 and not last then
//diese Anweisungen sollen immer ausgeführt werden
if last then
//diese Anweisungen sollen nur am Ende ausgeführt werden
end;