Delphi - Ordinare Array

Mi trovo a dover ordinare degli array contenenti record secondo un campo di TDate (double) in ordine crescente:

type TRec = record
  Data: TDate;
  Nome: string;
end;

procedure Sort(Rec: TRec): TRec;
begin
  //funzione di ordinamento
end;

var
  Rec: array of TRec;
  I: Integer;
begin
  //...
  SetLength(Rec, I);
  for I := 0 to High(I) do
  begin
    Rec[I].Nome := Nome.Strings[I];
    Rec[I].Date := TmpRec1[I];
    //...
  end;
  //...
  Write(f1, Sort(Rec), SizeOf(Rec));
  //...
end;

Ma non so da dove iniziare...
Grazie in anticipo delle risp...