[Delphi] Zrzuty ekranu z datą i godziną

Witam, piszę aplikację, która ma za zadanie co jakiś czas robić zrzut ekranu i zapisywać go pod nazwą pliku. Jednak mam problem z nazwą pliku. Na FAQ znalazłem taki kod do robienia screenshot-ów:

var
  Can: TCanvas;
  B: TBitmap;
begin
  try
 { tworzenie zmiennej }
    Can := TCanvas.Create;
 { przechwycenie uchwytu ekrnau }
    Can.Handle := GetWindowDC(GetDesktopWindow);

 { tworzenie bitmapy }
    B := TBitmap.Create;
    B.Width := Screen.Width;
    B.Height := Screen.Height;
    B.Canvas.CopyRect(Rect(0, 0, Screen.Width, Screen.Height), Can, Rect(0, 0, Screen.Width, Screen.Height));
    try // zapisz plik
      B.SaveToFile('C:\\plik.bmp');
   except // w wyniku bledu...
     raise Exception.Create('Bład w zapisie pliku...');
   end;

  finally
    Can.Free;
    B.Free;
  end;

Jednak ten kod zapewnia tylko zapis w pliku o nazwie, którą podam, a chciałbym, żeby plik był konstrukcji data-czas.bmp, np. 17-05-06_17-06

Mogę też użyć procedury, która zmieni nazwę utworzonego pliku na aktualną datę i godzinę. Mam tylko problem, bo nie wiem jakiej procedury użyć...

Może ktoś coś zaproponuje? ;P

var s:string;
begin
DateTimeToString(s, 'dd-mm-yy_hh-nn', Now());
//...
end;