tegn i string

If Pos('/', 'Her er din string med / i') > 0 then
showmessage('Det var en / eller flere');

Let
Hvis det er en memo som skal tjekkes bør du lave en løkke først hvor du sørger for at vær eneste linje tjekkes. Eksempel (ikke testet):

for i := 0 to Editor.Lines.Count - 1 do
begin
Kode := Editor.Lines;
If Pos('/', Lowercase(Kode)) > 0 then
showmessage('YES SÅ ER DER FUNDET EN / I LINJE '+inttostr(i));