Как перевести строку с определенным форматом в дату и время?

s := '2017-03-07 02:02:48';
DateTimePicker1.Date := StrToDate( Copy(s,9,2) + '.' + Copy(s,6,2) + '.' + Copy(s,1,4) );

procedure TForm1.Button1Click(Sender: TObject);
const sdt: String = '2017-03-07 02:02:48';
var D: TDate;
    FS: TFormatSettings;
begin
 FS.DateSeparator := '-';
 FS.ShortDateFormat := 'yyyy-mm-dd';
 D := StrToDate(Trim(Copy(sdt, 1, Pos(' ', sdt) - 1)), FS);
 ShowMessage(DateToStr(D));
end;

VAR
DT : TDateTime;
FS : TFormatSettings;
begin
FS.DateSeparator := '-';
FS.ShortDateFormat := 'yyyy-mm-dd';
FS.TimeSeparator := ':';
FS.ShortTimeFormat := 'hh:nn:ss';
DT := StrToDateTime('2017-03-07 01:01:44',FS);

VAR
DT : TDateTime;
FS : TFormatSettings;
s:String;
begin
s :='2011-01-31 01:01:44';
FS.DateSeparator := '-';
FS.ShortDateFormat := 'yyyy-mm-dd';
//FS.TimeSeparator := ':';
DT := StrToDateTime(s,FS);
Edit1.Text := DateTimeToStr(DT);

if DT = Pick1.Date then Label3.Caption := 'Дата совпала';

if ЧасИз(s) = час ночи {или час дня или 15-ый час} then ...

uses ..., DateUtils;
...
procedure TForm1.Button1Click(Sender: TObject);
const sdt: String = '2018-04-03 01:02:03';
var DT: TDateTime;
    FS: TFormatSettings;
begin
 Label1.Caption := sdt;
 FS.DateSeparator := '-';
 FS.TimeSeparator := ':';
 FS.ShortDateFormat := 'yyyy-mm-dd';
 FS.ShortTimeFormat := 'hh:nn:ss';
 DT := StrToDateTime(sdt, FS);
 Label2.Caption := IntToStr(HourOf(DT));
 if CompareDate(DT, DateTimePicker1.Date) = 0 then ShowMessage('Даты совпали') else ShowMessage('Даты не совпали');
end;