Много-строчный TableGrid...

procedure Form1_GridEmployees_OnColumnResize (Sender: string; ACol: Integer);
begin
    Form1_GridEmployees_OnChange ('');
end;

procedure Form1_GridEmployees_OnChange (Sender: string);
var
    i, c: integer;
begin

    Form1.GridEmployees.Options := Form1.GridEmployees.Options or goRowResizing;

    c := Form1.GridEmployees.Columns.Count - 1;
    for i := 0 to c do
    begin
        Form1.GridEmployees.Columns[i].VerticalAlignment := taAlignTop;
        Form1.GridEmployees.Columns[i].WrapKind := wkWordWrap;
    end;

    c := Form1.GridEmployees.RowCount - 1;
    for i := 0 to c do Form1.GridEmployees.BestFitRow(i);

    Form1.GridEmployees.Columns[0].Alignment := taCenter;
    Form1.GridEmployees.Columns[1].Alignment := taCenter;
    Form1.GridEmployees.Columns[2].Alignment := taCenter;

end;