Приём файлов с почты D7

[BARNEY]

код работает письма принимаю... понял как найти вложения... но не понял как их сохранить подскажите.

function TForm1.upmessage: Longint;
begin
IdPOP31.Connect;
msCount:=IdPOP31.CheckMessages;
  if  msCount>0 then
  begin
    for i:=1 to msCount do
    begin
      IdMessage1.Clear;
      IdPOP31.Retrieve(i,IdMessage1);
      lbl1.Caption:=IdMessage1.Subject;
      lbl2.Caption:=IdMessage1.From.Address;
      mmo1.Text:=IdMessage1.Body.Text;
      lbl3.Caption:=DateToStr(IdMessage1.Date);
     for c := 1 to IdMessage1.MessageParts.Count do
       begin
           
      тут пробовал через SaveDialog но..чёт не могу принцип понять.
     //    SaveDialog1.FileName:=IdMessage1.MessageParts.Items[c];
     //    SaveDialog1.Execute;

       end;
    //  IdPOP31.Delete(i);
    end;
    IdPOP31.Disconnect
  end
  else
  begin
    ShowMessage('Писем нет!');
    IdPOP31.Disconnect;
  end;
end;

[BARNEY]

не понятно вопрос написал?.... Как сохранить вложение письма... Желательно чтобы юзер выбрал сам место куда сохранить.