[ViNT]

Тогда так:

function DelChar(s:string;idx:integer):string;
var tmp:string;
begin
tmp:=copy(s,0,idx-1);
tmp:=tmp+copy(s,idx,length(s));
DelChar:=tmp;
end;

Например

DelChar('stroka',4);

возвращает strka.