Es gibt auch eine einfachere Lösung, nämlich über die Text-Eigenschaft auf den gesamten Inhalt zugreifen, also etwa so:
Delphi-Quellcode:
s1:=TStringList.Create;
s1.LoadFromFile('C:\bla.txt');
//Absolute Position (1. Vorkommen) des Strings suchen
i:=Pos('Version', s1.Text);
//Wenn nichts gefunden wurde, ist i=0
//Ausschneiden ab dieser Position, dann nach Zeilenende suchen (#13+#10), fertig