How I can write 'A' + NULL + NULL + 'B' on a TStringField ?

[Ale]

// How I can write 'A' + NULL + NULL + 'B' on a TStringField ?
// This function only write at the first char NULL
//
procedure TForm1.TextRecClick(Sender: TObject);
var MyBuffer: array[0..7] of byte; // char
    a: byte;
begin
  for a:=0 to 7 do
    MyBuffer[a]:=0;
  MyBuffer[0]:=65; //  'A'
  MyBuffer[3]:=66; //  'B'
  Table1.First;
  while not Table1.eof and (Table1.recno < 500) do begin
    Table1.Edit;
    Table1P1.SetData(@MyBuffer);
    Table1.Next;
  end;
  Table1.First;
end;

Tks

email me at agfc at outciudad.com.ar
please get out     OUT