[v1s2222]

Первое, что пришло на ум...

Код:

var
  str, str2: TStringList;
  i: integer;
begin
  str:=TStringList.Create;
  str2:=TStringList.Create;
  str.LoadFromFile('myfile.txt');
  for i:=0 to str.count-1 do
    str2.Add(Copy(str.Strings[i], 1, pos('%', str.Strings[i])-1));

  str2.Text:=Trim(str2.Text);
  str.Free;
  Showmessage(str2.Text);
  str2.Free;

Это чисто "для отмазки", но если надо хоть как-то,то и так сойдет. 1 число все-таки.
ЗЫ в файле в каждой строчке должен быть "%", иначе работать будет не совсем правильно.