Procedure DelLines(Start1, End1 :Integer; String1 : TStrings);
var x : integer;
begin
x := End1 - Start1;
repeat
Application.ProcessMessages;
String1.Delete(Start1);
x := x -1;
until x = 0;
end;