[lmikle]

ok, попробуй сделать отдельной функцией и вызывай ее:

Код:

procedure SplitNumber(InNmb : Integer; var A1 : Integer; var A2 : Integer);
var
  A : Array Of Integer;
begin
  SetLength(A,0);
  While InNmb > 0 Do
    Begin
      SetLength(A,Length(A)+1);
      A[High(A)] := InNmb mod 10;
      InNmb := InNmb div 10;
    End;
  A1 := A[1];
  A2 := A[0];
end;

тогда у себя в коде делаешь примерно так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  s1:=d1+m1+y1;
  SplitNumber(s1,A1,A2);
  ShowMessage(Format('S1=%d, A1=%d, A2=%d',[S1,A1,A2]));
end;

Ну и пришли что там вывелось.

ЗЫ. Если правильно помню, то если нажать в сообщении Ctrl+C, то в буфер обмена скопируется текст сообщения.