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

Function GetString: String;
Var
  SL: tStringList;
Begin
  SL := tStringList.Create;
  SL.LoadFromFile ('c:\test.txt');
  
  If (Sl.Count > 4) and (Length (SL [4]) > 108) Then
    Result := Copy (SL [4], 97, 12)
  Else
    Result := '';
  
  SL.Free;
End;