Функция Pos возвращает позицию первого вхождения подстроки Substr в заданную строку S.
function Pos(Substr: string; S: string): Integer;
Пример (из стандартной справки)
Код
var S: string;
begin
S := ' 123.5';
{ Заменяет пробелы нулями }
while Pos(' ', S) > 0 do
S[Pos(' ', S)] := '0';
end;
Кстати, из этого примера несложно сделать и подсчет вхождений.
Далее: функция Trim удаляет из строки ограничивающие пробелы. Если в строке ничего, кроме пробелов нет, Trim вернет пустую строку. Поэтому:
Код
If Trim(BlaBlaBla)='' then Writeln('строка BlaBlaBla пустая');
По-моему, так.