Record über mehrere Prozeduren hinweg übergeben

[KodeZwerg]

Delphi-Quellcode:

// procedure 3
function TDataUnit.IsDataOK(var aDataRecord: TDataRecord) : Boolean;
begin
 // überprüfe Daten (strings und integer) aus aDataRecord.
 // Wenn etwas kaputt ist, korrigiere es. Beispiel
 if aDataRecord.A < 0 then
 begin
  aDataRecord.A := 0;
  Result := True;
 end
 else
  Result := False;
end;

Könnte es so funktionieren?