Ну не знаю, чем тебе твой вариант не устраивал то?
Можно например записать твой файл в TStrings,
при этом читав его так:
Код:
var
s: TStrings;
i: Integer;
begin
S:=TStrings.Create;
...
i := 0;
While(not(EOF(FDBC))) do begin
ReadLn(FDBC, S.Strings[i]);
inc(i);
end;
Ну а потом уже работать с массивом строк:
Код:
TConnection1.hostName:=s.strings[0];
TConnection.port:=s.strings[1];
// и т.д.
ЗЫ можно так же после записи в TStrings работать с массивом строк в цикле, изменяя при этом нужные свойства...