[lmikle]

Код:

var
  S : TStringList;
  I : Integer;
  X : String;
  A : String;
begin
  X := 'aaa'; // Искомое начало строки.

  S := TStringList.Create;
  S.LoadFromFile('1.txt');
  For I := 0 To S.Count-1 Do
    If Copy(S[i],1,Length(X)) = X Then
       Begin
          A := S[i];
          // Break; // Раскомментировать, если надо остановиться.
       End;
  S.Free;
end;