Delphi 7 delete some character from memo lines -

i have lines in memo like:

111111.kll 222222.kll 

i need remove last 4 char each line obtain result like:

111111 222222 

as alternative goleztrol's solution, can manipulate memo content directly, instead of making copy of in memory first:

var   i, linestart, linelen: integer; begin   memo1.lines.beginupdate;   try     := 0 memo1.lines.count - 1     begin       linestart := memo1.perform(em_lineindex, i, 0);       linelen := memo1.perform(em_linelength, linestart, 0);       memo1.perform(em_setsel, linestart + linelen - 4, linestart + linelen);       memo1.seltext := '';     end;       memo1.lines.endupdate;   end; end;