procedure TForm1.LoadCombBox;
var
S2: TSearchRec;
Path, Filter: String;
begin
Path := 'C:\myPath\';
Filter := '*.*';
ComboBox1.Clear;
if FindFirst(Path+Filter, faAnyfile-faDirectory, S2) = 0 then
try
repeat
combobox1.Items.Add(S2.Name);
until FindNext(S2) <> 0;
finally
FindClose(S2);
end;
ComboBox1.ItemIndex := 0;
end;