multistring in StringGrid via DrawCell.does not work as expected. Delphi 10.3

Question

I use this code, but it doen\'t work as expected:

procedure TTableForm.GamesGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDraw