Delphi - Terminaciones numéricas

Table1 no puede tener más de 100 registros ya que los números que puede contener son de 1
o 2 cifras (del 0 al 99). Gracias por su sugerencia y de acuerdo con ella he escrito el siguiente
código que equivale a hacer 10 veces la rutina de comprobación:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
X : Integer;
T1, T2 : String;
begin
Table1.First; Table2.Open;
if Table2.RecordCount> 0 Then
While Not Table2.EOF Do
Table2.Delete;
For X := 0 To 9 Do
Begin
Table1.First;
While NOT Table1.Eof Do
Begin If Table1Numero.Value > 9 Then
Begin
T2 := IntToStr(Table1Numero.Value); T1 := Copy(T2,2,1);
End
Else
T1 := IntToStr(Table1Numero.Value);
If T1 = IntToStr(X) Then
Begin Table2.Append;
Table2Terminacion.Value := Table1Numero.Value;
Table2.Post;
End; // End If ¿qué deberia añadir o quitar a este codigo y cual
Table1.Next; sería el código alternativo que usted aconsejaria?
End; // End While Gracias y un afectuoso saludo
End; // End For .. To
end;
Pero aqui entran todos los numeros de Table1, tengan o no otros con la misma terminación