1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

Input.Text := '24  Red County  Timo87  0 %  17 L  1104 km/2054 km';

procedure TForm1.Button1Click(Sender: TObject);
var
  input: TStringList;
  s1: string;
begin
  input := TStringList.Create;
  input.CommaText := edtinput.Text;
  s1 := input.Values['24'];
  Edtoutput.Text := s1;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

type
  TExampleData = record
    Age, Group, Name, Progress, L, Position: string;
    procedure LoadFromString(const Value: string);
  end;

procedure TExampleData.LoadFromString(const Value: string);
var
  CurPos, CurValue, NextPos: PChar;
  CurData: PString;
  Count: Integer;
begin
  CurPos := @Value[1];
  CurValue := CurPos;
  CurData := @Age;
  while CurPos^ <> #0 do
  begin
    NextPos := PChar(Integer(CurPos) + SizeOf(Char));
    if ((CurPos^ = ' ') and (NextPos^ = ' ')) or (NextPos^ = #0) then
    begin
      Count := Integer(CurPos) - Integer(CurValue);
      if NextPos^ = #0 then
        Inc(Count);
      CurData^ := Copy(CurValue, 1, Count);
      Inc(CurData);
      Inc(CurPos);
      CurValue := CurPos;
      Inc(CurValue);
    end;
    Inc(CurPos);
  end;
end;

var
  ExampleRecord: TExampleData;
begin
  ExampleRecord.LoadFromString(edtInput.Text);
  memResult.Lines.Add(ExampleRecord.Age);
  memResult.Lines.Add(ExampleRecord.Group);
  memResult.Lines.Add(ExampleRecord.Name);
  memResult.Lines.Add(ExampleRecord.Progress);
  memResult.Lines.Add(ExampleRecord.L);
  memResult.Lines.Add(ExampleRecord.Position);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

type
  TExampleData = record
    Age: Integer;
    Group, Name: string;
    Progress, L, Position: Integer;
    procedure LoadFromString(const Value: string);
    procedure LoadFromString2(const Value: string);
  end;


procedure TExampleData.LoadFromString(const Value: string);
var
  CurPos, CurValue, NextPos, BlankPos: PChar;
  CurData: Pointer;
  Count, Index: Integer;
begin
  CurPos := @Value[1];
  CurValue := CurPos;
  CurData := @Age;
  Index := 0;
  BlankPos := nil;
  while CurPos^ <> #0 do
  begin
    if (CurPos^ = ' ') and not Assigned(BlankPos) then
      BlankPos := CurPos;
    NextPos := PChar(Integer(CurPos) + SizeOf(Char));
    if ((CurPos^ = ' ') and (NextPos^ = ' ')) or (NextPos^ = #0) then
    begin
      Count := Integer(CurPos) - Integer(CurValue);
      if NextPos^ = #0 then
        Inc(Count);
      case Index of
        0: TryStrToInt(Copy(CurValue, 1, Count), PInteger(CurData)^);
        1, 2: PString(CurData)^ := Copy(CurValue, 1, Count);
        3..5: TryStrToInt(Copy(CurValue, 1, Integer(BlankPos) - Integer(CurValue)), PInteger(CurData)^);
      end;
      Inc(PLongWord(CurData));
      Inc(CurPos);
      CurValue := CurPos;
      Inc(CurValue);
      Inc(Index);
      BlankPos := nil;
    end;
    Inc(CurPos);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:

procedure TExampleData.LoadFromString(const Value: string);
var
  CurPos, CurValue, NextPos, BlankPos: PChar;
  Count, Index: Integer;
begin
  CurPos := @Value[1];
  CurValue := CurPos;
  Index := 0;
  BlankPos := nil;
  while CurPos^ <> #0 do
  begin
    if (CurPos^ = ' ') and not Assigned(BlankPos) then
      BlankPos := CurPos;
    NextPos := PChar(Integer(CurPos) + SizeOf(Char));
    if ((CurPos^ = ' ') and (NextPos^ = ' ')) or (NextPos^ = #0) then
    begin
      Count := Integer(CurPos) - Integer(CurValue);
      if NextPos^ = #0 then
        Inc(Count);
      case Index of
        0: TryStrToInt(Copy(CurValue, 1, Count), Age);
        1: Group := Copy(CurValue, 1, Count);
        2: Name := Copy(CurValue, 1, Count);
        3: TryStrToInt(Copy(CurValue, 1, Integer(BlankPos) - Integer(CurValue)), Progress);
        4: TryStrToInt(Copy(CurValue, 1, Integer(BlankPos) - Integer(CurValue)), L);
        5: TryStrToInt(Copy(CurValue, 1, Integer(BlankPos) - Integer(CurValue)), Position);
      end;
      Inc(CurPos);
      CurValue := CurPos;
      Inc(CurValue);
      Inc(Index);
      BlankPos := nil;
    end;
    Inc(CurPos);
  end;
end;