SELECT <наименование>,sum(<вес>) AS sweight
FROM <имя таблицы>
GROUP BY <наименование>

procedure TForm1.Button1Click(Sender: TObject);
var
  Answer: TMyDataArr;
  i: Integer;
begin
  //SetLength(Answer, 2); никому не нужно
  Answer := Test('000@001#002$003%0&'); // Incompatible types
end;

var
  CurrentNo: Integer;
begin
  Table.DisableControls();
  try
    CurrentNo:= Table.RecNo; // запоминаешь текущую позицию
    Table.First(); // переход к первой записи таблицы
 
    // твой цикл
    while not Table.Eof do
      begin
        // * <--- здесь твоя работа с полями текущей записи
        Table.Next(); // переход к следующей записи
      end;
  finally
    Table.RecNo:= CurrentNo; // восстанавливаешь текущую позицию
    Table.EnableControls();
  end;
end;

var bmp:TBitmap;
begin
  bmp:=TBitmap.create();
  bmp.wtidth := 8;
  bmp.height := 8;
  // возможно еще нужно будет выставить битность изображения

TFoo = class
  procedure IAmAStatic;
  procedure IAmAVirtual; virtual;
  procedure IAmADynamic; dynamic;
  procedure IAmAMessage(var M: TMessage); message wmSomeMessage; 
end;

procedure TObject.Free;
begin
  if Self <> nil then
    Destroy;
end;

var 
  o: TStrings; { например }
begin
  o := nil;
  o.Free;  { метод статический и исключение не выкинет! }
end.

TerminateThread(имя_потока.ThreadId);

имя_потока.Terminate;

имя_потока.Terminate;
имя_потока.WaitFor();

#include <combase.h>

#include <objbase.h>

procedure SplitText(const AText: string; ALines: TStrings);
var
  Index, Len: Integer;
begin
  Len:= Length(AText);
  Index:= 1;
  ALines.Clear();
 
  while Index <= Len do
    begin
      ALines.Add(Copy(AText, Index, 512));
      Inc(Index, 512);
    end;
end;
 
// использование процедурки:
SplitText(binMsg, mmoBinMsg1.Lines);

mmoBinMsg1.Lines.Clear;
while Length(binMsg) > 512 do begin
  mmoBinMsg1.Lines.Add(Copy(binMsg,1,512));
  Delete(binMsg,1,512);
end;
if binMsg<>'' then mmoBinMsg1.Lines.Add(binMsg);

procedure TForm1.FormCreate(Sender: TObject);
begin
  gp[0] := grpDescription;
  gp[1] := grp1
end;

procedure SetGp(Arg: array of TCheckBox);
var i: integer;
begin
  for i := 0 to Length(Arg) - 1 do
    gp[i] := Arg[i];
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetGp([CheckBox1, CheckBox2]);
end;

function IntToBin(Value: Int64; Digits: Integer): string;
var
  Index: Integer;
begin
  SetLength(Result, Digits);
  FillChar(Result[1], Digits, '0');
  Index:= Digits;
 
  while (Value <> 0) and (Index > 0) do
    begin
      Result[Index]:= Char($30 + (Value and 1));
      Dec(Index);
      Value:= Value shr 1;
    end;
end;