MDI save all

SIdder lige med et problem hvor jeg vil kunne gemme alle mine richedits, men den skal lave en query for hver eneste mdi så den spørger om man vil gemme. Har denne her kode hvis der bare var en richedit

begin
if Richedit1.Modified Then
Case MessageBox(Handle, 'Vil du gemme dokumentet', 'Gem?', MB_ICONQUESTION+MB_YESNOCANCEL) of
    IDYES: If SaveDialog1.Execute Then
            RichEdit1.Lines.SaveToFile(SaveDialog1.Filename)
            Else
            CanClose := False;
    IDCancel: CanClose := False; //luk ikke
  End;
end;

men mit problem er nu bare at jeg skal bruge det således at det bliver på MDI Basis og så den skal tjekke alle Childs er der nogen som kan lave sådan en stump kode til mig ??