type

TMyPlayer = record
 Kills,Deaths :Integer
end;

var
 Players: array of TMyPlayer

procedure Test;
var
 i:integer;
begin
 //doenstwork
for i:=0 to GetArraylength(Players)-1 do
 with Player[i] do begin
  Kills:=0;
  Deaths:=0;
 end;

 //this does
for i:=0 to GetArraylength(Players)-1 do begin
  Players[i].Kills:=0;
  Players[i].Deaths:=0;
 end;
end;