Используй:
Copy(S: string; Index, Count: Integer): string Возвращает подстроку строки S, начинающуюся с S[Index] и содержащую до Count символов.

Pos(Substr: string; S: string): Integer Возвращает позицию (индекс) первого вхождения Substr в S. Если Substr нет в S, возвращается 0.

Например так:
SzTip:='Соедидение установленно!'+ copy(DBGrid1.Fields[5].AsString,0,pos(',',DBGrid1.Fields[5].AsString);