急！EOutOfMemory错误

delphi老是在这个部分中显示错误，显示project raised exception class EOutOfMemory with message 'Ouf Of Memory'，
实在找不到错在哪，有没有大大能帮个忙。
procedure TForm1.SupportSubset(ArrayOA1,ArrayOB1:Tarray);
var
  a,b,c,d,e,h:integer;
  g:extended;
  str1,str2:string;
begin
  try
  for a:=0 to FMedicineList1.count-1 do                    
  for b:=0 to FMedicineList2.Count-1 do                    
  begin
    New(FMedicine1);
    FMedicine1:=FMedicineList1[a];
    str1:=FMedicine1.string1;
    New(FMedicine1);
    FMedicine1:=FMedicineList2[b];
    str2:=FMedicine1.string1;
    if  str1=str2  then                                   
    continue
    else
    begin
      h:=0;
      for c:=0 to Length(ArrayOA1)-1 do                    
      for d:=0 to Length(ArrayOA1[c])-1 do
      begin
        New(FMedicine1);
        FMedicine1:=FMedicineList1[a];
        if FMedicine1.string1=ArrayOA1[c][d] then
        begin
          for e:=0 to Length(ArrayOB1[c])-1 do
          begin
            New(FMedicine1);
            FMedicine1:=FMedicineList2[b];
            if FMedicine1.string1=ArrayOB1[c][e] then
            begin
              inc(h);
              break;                                     
            end;
          end;
        break;                                          
        end;
      end;
      if length(ArrayOA1)<>0 then
      begin
      g:=h/length(ArrayOA1);
      if g>=strtofloat(edit8.text) then
      begin
        if g<=strtofloat(edit9.text) then
        begin
          New(FMedicine1);
          FMedicine1:=FMedicineList1[a];
          str1:=FMedicine1.string1;
          New(FMedicine1);
          FMedicine1:=FMedicineList2[b];
          str2:=FMedicine1.string1;
          New(FMedicine2);
          FMedicine2.string1:=str1;
          FMedicine2.string2:=str2;
          FMedicineList3.add(FMedicine2);       
        end;
      end;
      end;
    end;
  end;
  except
  showmessage('SupportSubset Error');
  end;
end;