1:

var schiff: TStringList;					

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

function auslesen(datei: String;nummer: Integer): String;
begin
  schiff := TStringList.Create;
  schiff.LoadFromFile(datei);
  result := schiff[nummer];
  schiff.Free;
end;					

1:

wasweissich := auslesen(schiffeins.aaa,5);					

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

Type
  TSchiff = record
    SchiffNr : byte; // zur eindeutigen identifizirung
    name : String[40]; // Name
    lange : word;  // länge des Schiffes
    breite : word; // breite -"-
    Tiefgang : byte; // :)
    speed : integer;
    Beschreibung : String [255]; // bei bedarf kann man ja ein array of String machen.
  end;