Reading random line

var
	stlList : TStringList;
	index : integer;
	ret : string;
begin
	Result := '';
	try
		Randomize;
		stlList := TStringList.Create;
		stlList.LoadFromFile('file.txt');
		index := random(stlList.Count - 1);
		Result := stlList.strings[index];
	finally
		stlList.Free;
	end;
end;