da gibt's nochn Paar fehler...
1. [Fehler] Unit1.pas(152): Deklaration von 'Swap' unterscheidet sich von vorheriger Deklaration
procedure TForm1.Swap(var i,j: String);
2. [Fehler] Unit1.pas(166): Inkompatible Typen
If TelefonBArr[j]<TelefonBArr[i] then Swap(TelefonBArr[i],TelefonBArr[j]);
3. [Fehler] Unit1.pas(166): Zu viele Parameter
If TelefonBArr[j]<TelefonBArr[i] then Swap(TelefonBArr[i],TelefonBArr[j]);
4. [Fehler] Unit1.pas(176): Inkompatible Typen: 'String' und 'TTelefonB'
ListBox1.Items.Add(TelefonBArr[i]);
Edit:
@Jens: Muss sie aber in einem Array speichern