1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

var
   i,ende : integer;
  TxtFile: TextFile;
  t : string;
  Data: array of string;

        AssignFile(TxtFile, command);
        Reset(TxtFile);
        ende := 0;
        SetLength(Data, 0);
    //Repeat for each line until end of file
        repeat
          Inc(ende);
          readln(TxtFile, t);
          SetLength(Data, Length(Data) + Length(t));
          Data[ende] := t;
        until EOF(TxtFile);

        SetLength(Data, Length(Data) + 3 * ende);
    //Add to each line the line number
        for i := 1 to ende do Data[i] := IntToStr(i) + ' ' + Data[i];
        SetLength(Data, Length(Data) + 2);
    //Add a carriage return and line feed
        Data[1] := Data[1];
        i := Length(Data[5]);
        Data[5] := '';
        SetLength(Data, Length(Data) - i);
   // show file content 
        for i := 1 to ende-1 do      //delete empty line with 'ende-1'
        Memo.Lines.Add(Data[i]);