[ecfisa]

Hola.

Ejemplo:

Código Delphi [-]
procedure SelectItemFLB(FLB: TFileListBox; Inx: Integer);
begin
  Dec(inx);  // comienza en FLB.Items[0]
  if (Inx >= 0)and(Inx < FLB.Items.Count) then
    FLB.FileName := FLB.Items[Inx]
end;

Llamada:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  SelectItemFLB(FileListBox1, 5); // en realidad posición 4
end;

Saludos.