savedialog para exportar listview a bmp?

[BioStudio]

estuve probando de muchas formas pero únicamente logre que se genere el archivo pero no obtengo nada dentro..

Código Delphi [-]
procedure TForm2.Button2Click(Sender: TObject);
var
  bmp: TBitmap;
  i : Integer;
  saveDialog : TSaveDialog;
begin
  saveDialog := TSaveDialog.Create(self);
  saveDialog.Title := 'Respaldo de Archivo en Formato BMP';
  saveDialog.InitialDir := GetCurrentDir;
  saveDialog.Filter := 'Texto (delimitado por tabulaciones) (*.bmp)|*.bmp';
  saveDialog.DefaultExt := 'bmp';
  saveDialog.FilterIndex := 1;

  if saveDialog.Execute then
  begin
     with TBitmap.Create do
     try
    Width := umain.Form1.ListView1.Width;
    Height := umain.Form1.ListView1.Height;
    Canvas.Lock;
    try
      umain.Form1.ListView1.Perform(WM_PRINT, Canvas.Handle, PRF_CHILDREN or PRF_CLIENT or PRF_NONCLIENT);
    finally
      Canvas.UnLock;
      SaveToFile(SaveDialog.FileName)
      //SaveToFile(SaveDialog.FileName);
    end;
  finally
    bmp.Free
  end;
           //try
             // SaveToFile(SaveDialog.FileName);
           //except
             // ShowMessage('Error en la Generación del Archivo BMP');
           //end;
   //  finally
     //   free;
     //end;
  end;

  saveDialog.Free;
end;