procedure TForm1.CheckClick(Sender: TObject);
const
Elements = 2;
input  : array  [0..Elements] of string = ('Lol keeeek234', 'Keklol', 'LooolKek');
var
  i : integer;
  fine : boolean;
  tmp : string;
begin
  fine := true;
  if (Length(input) <> List.Lines.Count) then begin
    ShowMessage('hui sosi');
    exit;
  end;
  for i := 0 to List.Lines.Count - 1 do begin
    tmp := copy(List.Lines.Strings[i], 4, length(List.Lines.Strings[i]) - 2);
    if (input[i] <> tmp) then begin
       fine := false;
       break;
    end;
  end;
  if (fine) then ShowMessage('Check') else ShowMessage('hui sosi');
end;