Очистить массив

[Shouldercannon]

Есть такой массив

type
  TMyArray5 = Record
    s: String;
    I: Integer;
  end;
...
var
  MyArray5: TMyArray5;
...
procedure TFormMain.BFill5Click(Sender: TObject);
begin
  MyArray5.s := 's: 5';
  MyArray5.I := 5;
end;

procedure TFormMain.BShow5Click(Sender: TObject);
var
  s: String;
begin
  if MyArray5.s <> '' then s := s + #13#10 + Format('%s = %d', [MyArray5.s, MyArray5.I]);
  ShowMessage(s);
end;

Как его затереть?

SetLength(MyArray5, 0);

Явно не тот способ

[Аватар]

А где массив?

[Shouldercannon]

Точно, это же запись, а не массив.

[Аватар]

Вообще-то структура