Jak powiązać RadioGroup z Memo

void __fastcall TForm1::ComboBox1Select(TObject *Sender)
{
        if (ComboBox1->Text == "A1")
        {
                String sFileName1 = ExtractFilePath(ParamStr(0)) + "dat\\a1pik.dat";
                String sFileName2 = ExtractFilePath(ParamStr(0)) + "dat\\uwagia1.dat";

                if(!FileExists)
                {
                        Application->MessageBox(("Nie odnaleziono pliku '" + ExtractFilePath(ParamStr(0)) + "dat\\a1pik.dat'!").c_str(), "Uwaga! Brak pliku", MB_OK | MB_ICONSTOP);
                        RadioGroup1->Items->Clear();
                        powiat->Caption = "Nie wybrano żadnej opcji...";
                        Memo1->Clear();
                        return;
                }

                Lista->Clear();
                Lista->LoadFromFile(sFileName1);

                RadioGroup1->Visible = true;
                RadioGroup1->Items->Clear();
                powiat->Caption = "Nie wybrano żadnej opcji...";
                Memo1->Clear();

                for(int i = 0; i < Lista->Count; i++)
                {
                        RadioGroup1->Items->Add(Lista->Names[i]);
                }

Memo1->Clear();
Memo1->Lines->Append(Lista->Values[Lista->Names[RadioGroup1->ItemIndex]]);

private:    // User declarations
        THashedStringList *Lista;

var
  Form1: TForm1;
  lista_drog: TStringList;
  liczba_drog: Integer;  

procedure TForm1.ComboBox1Select(Sender: TObject);
begin

     if (ComboBox1.Text = 'A1') then
     begin
          lista_drog := TStringList.Create;
          if FileExists('dat\a1pik.dat') then
          begin
               lista_drog.LoadFromFile('dat\a1pik.dat');
               RadioGroup1.Visible := true;
               RadioGroup1.Items.Clear;

               for liczba_drog := 0 to lista_drog.Count-1 do
               begin
                    RadioGroup1.Items.Add(lista_drog.Names[liczba_drog]);
               end
          end
          else
              begin
                   MessageDlg('Nie odnaleziono pliku: ' + ExtractFilePath(Application.ExeName) + 'dat\a1pik.dat' + '.' , mtError, [mbOk], 0 );
                   RadioGroup1.Items.Clear;
                   powiat.Caption := 'Nie wybrano żadnej opcji...';
                   Memo1.Clear;
              end
          end;
     lista_drog.Free;
     end;  

for liczba_drog := 0 to lista_drog.Count-1 do
begin
  RadioGroup1.Items.Add(lista_drog.Names[liczba_drog]);
end;

RadioGroup1.Items.Assign(lista_drog);

264,801 - 270,529 km=Powiat Łęczycki
270,529 - 271,476 km=Powiat Łowicki
271,476 - 273,697 km=Powiat Łęczycki

     if (ComboBox1.Text = 'A1') then
     begin
          lista_drog := TStringList.Create;
          if FileExists('dat\a1pik.dat') then
          begin
               lista_drog.LoadFromFile('dat\a1pik.dat');
               RadioGroup1.Visible := true;
               RadioGroup1.Items.Clear;

               for liczba_drog := 0 to lista_drog.Count-1 do
               begin
                    RadioGroup1.Items.Add(lista_drog.Names[liczba_drog]);
               end
          end
          else
              begin
                   MessageDlg('Nie odnaleziono pliku: ' + ExtractFilePath(Application.ExeName) + 'dat\a1pik.dat' + '.' , mtError, [mbOk], 0 );
                   RadioGroup1.Items.Clear;
                   powiat.Caption := 'Nie wybrano żadnej opcji...';
                   Memo1.Clear;
              end;

     lista_drog.Free;
     end;

end;

uses
  Classes;
var
  List: TStringList;
  ItemIdx: Integer;
  Name, Value: String;
begin
  List := TStringList.Create();
  try
    List.Add('264,801 - 270,529 km=Powiat Łęczycki');
    List.Add('270,529 - 271,476 km=Powiat Łowicki');
    List.Add('271,476 - 273,697 km=Powiat Łęczycki');

    List.NameValueSeparator := '=';

    for ItemIdx := 0 to List.Count - 1 do
    begin
      Name := List.Names[ItemIdx];
      Value := List.Values[Name];

      WriteLn('Name: "', Name, '" | Value: "', Value, '"');
    end;
  finally
    List.Free();
  end;
end.

Name: "264,801 - 270,529 km" | Value: "Powiat Łęczycki"
Name: "270,529 - 271,476 km" | Value: "Powiat Łowicki"
Name: "271,476 - 273,697 km" | Value: "Powiat Łęczycki"

var
  Form1: TForm1;
  List: TStringList;
  ItemIdx: Integer;
  Name, Value: String;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  List := TStringList.Create();
  List.LoadFromFile('a1pik.dat');
  List.NameValueSeparator := '=';

  for ItemIdx := 0 to List.Count - 1 do
    begin
      Name := List.Names[ItemIdx];
      Value := List.Values[Name];


      end;
  RadioGroup1.Items.Add(Name);
    end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Label1.Caption := Value;
end;


end. 

Name := List.Names[ItemIdx];

type
  TMainForm = class(TForm)
  {..}
  private
    FList: TStringList;
  end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LName, LValue: String;
  LIndex: Integer;
begin
  FList := TStringList.Create();
  FList.LoadFromFile('a1pik.dat');
  FList.NameValueSeparator := '=';

  for LIndex := 0 to FList.Count - 1 do
  begin
    LName := List.Names[LIndex];
    LValue := List.Values[LName];

    RadioGroup1.Items.Add(LName);
  end;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FList.Free();
end;

LName := FList.Names[LIndex];
LValue := FList.Values[LName];

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  //Label1.Caption := LValue;
  //Label1.Caption := FList.Values[RadioGroup1.ItemIndex];
end; 

unit1.pas(55,21) Error: Identifier not found "LValue"
unit1.pas(56,55) Error: Incompatible type for arg no. 1: Got "LongInt", expected "AnsiString"

Label1.Caption := FList.Values[RadioGroup1.Items[RadioGroup1.ItemIndex]];

Label1.Caption := FList.Values[FList.Names[RadioGroup1.ItemIndex]]; 

type

  { TForm1 }

  TForm1 = class(TForm)
    Label1: TLabel;
    RadioGroup1: TRadioGroup;
    procedure FormCreate(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { private declarations }
    FList: TStringList;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
var
  LIndex: Integer;
begin
  FList := TStringList.Create();
  FList.LoadFromFile('a1pik.dat');
  FList.NameValueSeparator := '=';

  for LIndex := 0 to FList.Count - 1 do
  begin
    RadioGroup1.Items.Add(FList.Names[LIndex]);
  end;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Label1.Caption := FList.Values[FList.Names[RadioGroup1.ItemIndex]];
end;

end.

LName := List.Names[LIndex];
LValue := List.Values[LName];

LName := List.Names[LIndex];
LValue := List.ValueFromIndex[LIndex];

procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
  Label1.Caption := FList.ValueFromIndex[RadioGroup1.ItemIndex];
end;