1:
2:
3:
4:

record TVokabel = record
  Sprache1: String;
  Sprache2: String;
end;					

1:
2:
3:
4:

  
for I := 0 to Length(DeinRecord) -1 do
  begin
    ListBox1.Items.Add(InttoStr(i+1) + ':  ' + DeinRecord[i].Sprache1 + ' = ' + DeinRecord[i].Sprache2;					

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

procedure TForm1.BTN_SortierenClick(Sender: TObject);
var
  getauscht: boolean;
  i: integer;
begin
  repeat
    getauscht := false;
    for i := 0 to Length(DeinRecord)-2 do
    begin
      if DeinRecord[i].Sprache1 > DeinRecord[i+1].Sprache1 then
        Tauschen(i);
      end;
    end;
  until getauscht = false;
end;					

1:
2:
3:

  public
    { Public-Deklarationen }
    procedure Tauschen(Zaehler: Integer);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TForm1.Tauschen(Zaehler: Integer);
var
  VokabelTemp: DeinRecord; //Aushilfsvariabel, in der du zwischenspeichern kannst!
begin
  VokabelTemp := DeinRecord[Zaehler];
  DeinRecord[Zaehler] := DeinRecord[Zaehler+1];
  DeinRecord[Zaehler+1] := VokabelTemp;
  getauscht := true;
end;					

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

Application.MessageBox(Copy(ListBox1.Items[ListBox1.ItemIndex],1,pos(ListBox1.Items[ListBox1.ItemIndex],'=')-1),
 'Zu übersetzende Vokabel:',MB_OK);

Lösen:

if Edit1.Text = Copy(ListBox1.Items[ListBox1.ItemIndex],pos(ListBox1.Items[ListBox1.ItemIndex],'=')+1,length    
 (ListBox1.Items[ListBox1.ItemIndex]-pos(ListBox1.Items[ListBox1.ItemIndex],'=')+1)) then
 begin
   Application.MessageBox('Richtig!','Vokabel',MB_OK);
   inc(ListBox1.ItemIndex);
   Form1.VorherigeProzedur(Self);
 end;