procedure TForm1.Edit1Exit(Sender: TObject);
var
S : array[1..4] of Byte;
I,J,K : Integer;
begin
J := 1;
K := 1;
for I := 1 to Length(Edit1.Text) do
begin
if Edit1.Text = '.' then
begin
S[J] := StrToInt(Copy(Edit1.Text,K,I - K));
Inc(J);
K := I + 1;
end;
end;
Edit2.Text := IntToHex(S[1],0) + '.' + IntToHex(S[2],0) +
'.' + IntToHex(S[3],0) + '.' + IntToHex(S[4],0);
end;