Ami vij sega dokolkoto ti shvanah problema nai lesno 6te stane mai taka :


var i:integer;
substr:string;
sl:TStringList;
begin
//priemame 4e sl e sazdaden i popalnen
for i := 0 to sl -1 do
if substr = Copy(sl,1,length(substr)) then edi_kakvo_si;
//ili pak
if StrPos(substr,sl) = 1 then edi_kakvo_si;
end;