procedure AddToListFromTop(const S: String; Strings: TStrings); begin if Strings.Count = 0 then Strings.Add(S) else Strings.Insert(0,S); end;