[lmikle]

Код:

function GetValue(AFileName, AVarName : String) : String;
var
  I : Integer;
  L : TStringList;
  ALen : Integer;
begin
  Result := '';
  ALen := Length(AVarName);
  L := TStringList.Create;
  Try
    L.Load(AFileName);
    For I := 0 To L.Count-1 Do
      If Copy(L[i],1,ALen) = AVarName Then
         Begin
            Result := Copy(L[i],ALen+2,Length(L[i])-ALen-2); // проверить.
         End;
  Finally
    L.Free;
  End;
end;

Проверить корректность длинны копирования результата.