I have the following code which generates TIB_Edits dynamically.

procedure TForm1.JH_IB_Query1AfterOpen(IB_Dataset: TIB_Dataset);
var
x : integer;
jhib_edit : TIB_Edit;
begin
for x := 0 to JH_IB_Query1.FieldCount - 1 do
begin

if JH_IB_Query1.Fields[x].Visible = true then
begin

jhib_edit := TIB_Edit.create(self);
jhib_edit.parent := Form1;
jhib_edit.Name := 'jhib_edit' + inttostr(x);
jhib_edit.Top := 50 + (30 * x);
jhib_edit.left := 50;
jhib_edit.DataSource := IB_DataSource1;
jhib_edit.DataField := JH_IB_Query1.Fields[x].FieldName;


end;
end;
end;

I would like to generate autolabels of kind albtop dynamically to go
with these edits.

Can someone please help

Thank you

John