*из строки удалить символы

var
s:string;
{…}
while pos('!',s)<>0 do delete(s,pos('!',s),1);

*Удалить определённую подстроку из строки

Удалить определённую подстроку из строки

var
S, S2 : String;
P1 : Integer;
begin
//Строка.
S := Edit1.Text;
//Искомая подстрока.
S2 := Edit2.Text;

//Удаление всех вхождений заданной подстроки с учётом регистра букв.
S := StringReplace(S, S2, '', [rfReplaceAll]);

//Или:
//Удаление всех вхождений заданной подстроки без учёта регистра букв.
S := StringReplace(S, S2, '', [rfReplaceAll, rfIgnoreCase]);

//Или:
//Удаление только первого воходения подстроки без учёта регистра букв.
S := StringReplace(S, S2, '', [rfIgnoreCase]);
…

*Время получить и сравнить для таймера

uses DateUtils

var
cHour,cMin: word;
begin
// получить текущее время
cHour := HourOf(Now);
cMin := MinuteOf(Now);

.............

if (cHour = AlHour) and (cMin = AlMin)
// сигнал !
then begin
.....
end;
end;

Из Firebird-Interbase в MySQL