[slava]

Спасибо всем откликнувшимся, разобрался. Вот код если кому то понадобиться!

Код:

const
  MAX_TABS = 3;
 tab = Chr(9);
var
  Tabulators: array[0..MAX_TABS] of Integer;
   nazvanie,naz:string;      //Грид2
  count:string;     //Грид2
  price:string;     //Грид2
  volume:string;
  w:integer;
begin

  Tabulators[0] := 110;
  Tabulators[1] := 30;
  Tabulators[2] := 30;
  Tabulators[3] := 30;
  Listbox1.TabWidth := 1;

  SendMessage(ListBox1.Handle, LB_SETTABSTOPS, MAX_TABS, Longint(@Tabulators));

  volume:=string(dbgrideh2.DataSource.DataSet.FieldValues['volume']);
  price:=string(dbgrideh2.DataSource.DataSet.FieldValues['price']);
  nazvanie:=dbgrideh2.DataSource.DataSet.FieldValues['nickname'];
  count:=string(dbgrideh2.DataSource.DataSet.FieldValues['count']);
  begin
  if  length(dbgrideh2.DataSource.DataSet.FieldValues['nickname']) < 30 then
  begin
naz:=PADR(nazvanie,30);
Listbox1.Items.Add(''+naz+''+tab+''+count+''+tab+''+volume+''+tab+''+price+'');

  end;

 end;

Админ: Пользуемся тегами для оформления кода!