[[duilioisola]]

Tienes a tu disposición TCanvas.TextWidth(const Text: string) : integer;
Devuelve el largo en pixels de un texto en el tipo de letra del Canvas.

Podrías recorrer los campos y obtener el ancho de cada uno según la cantidad de caracteres que permita contener.

Código Delphi [-]
S := StringOfChar('A', LongitudCampo);
AnchoEnPixels := Form1.Canvas.TextWidth(s);

Supongo que para un largo aproximado podrías hacer algo como lo siguiente:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
   Bordes : integer;
   Campos : integer;
   AnchoCampo : integer;
begin
  // Cuanto espacio quiero dejar para bordes
  Bordes := 10;

  // Cuantos campos hay en el grid
  Campos  := 5;

  // Ancho de un campo 
  AnchoCampo := Form1.Canvas.TextWidth('El ancho de este string');

  // Establezco ancho de formulario
  Form1.Width := (Bordes * 2) + (AnchoCampo * Campos);
end;