[lmikle]

Страдалец, да, был не прав, вспылил.
Только вообще не понятно нафига там массив тогда???

Код:

function FindMinInFile(AFileName : String) : Double;
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile(AFileName);
  Result := StrToFloat(L[0]);
  For I := 1 To L.Count-1 Do
    If Result > StrToFloat(L[i]) Then Result := StrToFloat(L[i]);
  L.Free;
end;