[lmikle]

нет, неправильно.
можно вот так:

Код:

type
  TFlightData = record
    money, exp, sec, amount: Integer;
    mid_money, mid_exp: Real;
  end;
  PFlightData = ^TFlightData;

var
  FlightArray220, FlightArray221, FlightArray219, FlightArray218 : TFlightData;

procedure TForm1.Button1Click(Sender: TObject);
var
  I : Integer;
  A : Array [0..3] Of PFlightData;
begin
  A[0] := @FlightArray220;
  A[1] := @FlightArray221;
  A[2] := @FlightArray219;
  A[3] := @FlightArray218;

  For I := Low(A) To High(A) Do
    Begin
      A[i].money := 0;
      A[i].exp := 0;
      A[i].sec := 0;
      A[i].mid_money := 0;
      A[i].mid_exp := 0;
      A[i].amount := 0;
    End;
end;

PS. А что мешает изначально переменные создавать не отдельными, а массивом?