В данной процедуре не выполняется поиск переменной group, а соответственно всё что заключено под циклом while. Я программер не опытный, так что расчитываю на вашу помощь...
procedure TForm1.BitBtn2Click(Sender: TObject);
var group,audit:string;
i,j:integer;
begin
richedit1.Text:='';
richedit3.Text:='';
k:=3; j:=1; l:=0;
ves:=richedit2.Lines.Strings[l+3];
pos:=ves;
for i:=8 to 24 do if ves[i]<>' ' then kon:=kon+ves[i];
labelededit1.Text:=kon;
group:=kon;
kon:='';
while richedit2.FindText(group,k+l,10,[]) <>-1 do begin
for i:=27 to 44 do if pos[i]<>' ' then kon:=kon+pos[i];
stringgrid1.Cells[1,j]:=kon;
kon:='';
for i:=47 to 52 do if pos[i]<>' ' then kon:=kon+pos[i];
stringgrid1.Cells[3,j]:=kon;
kon:='';
pos:=richedit2.Lines.Strings[l+1];
for i:=1 to length(pos)-1 do if pos[i]<>' ' then kon:=kon+pos[i];
stringgrid1.Cells[2,j]:=kon;
kon:='';
j:=j+1;
k:=k+1;
pos:=richedit2.Lines.Strings[richedit2.FindText(group,l+k,10,[])];
end;
l:=l+15;
end;