в реестр.

Уже сам сделал)
Вот этим кодом

Добрый день, мне очень срочно нужны ответы на пару вопросов...
1) Мне нужно чтобы при на жатии на кнопку на label выводился определенный текст (Это я сделал, не такой уж нуб), Но мне надо чтобы при втором нажатии на эту кнопку появлялся второй текст вместо прежнего, либо как сделать чтобы при нажатии на кнопку выводился текст а потом эта кнопочка удалялась и вместо нее появлялась другая кнопочка при нажатии на которую уже появлялся второй текст
2) Как сделать чтобы при нажатии на кнопку открывалось еще одна форма (окно)
и закрывалось старое.

Life7
1) Поиграйся со свойством visible(видимость) т.е. например скрыть кнопку можно так:
2) Создать фому можно так
Закрыть форму одной командой
Но нужно учесть, что при закрытии Главной формы закроется все приложение.

Life7, вот попробуй, то что ты описал в первом варианте.
в свойствах второй кнопки сделай её невидимой, и расположи их друг на друге.
и при нажатии первой выведется текст1 и кнопка1 скроется, а кнопка2 появится и при её нажатии выведется текст2.
p.s. ничего тут сложного нет

ну так и используй для этого свойство Button1.Visible:=true или false

Form1.hide;
Form2.show;

Читай выше ^

неувидел. спбо

приветствую..
если кто может - посмотрите этот код.. вроде ошибок быть не должно, но нету паскаля под рукой.. если где ошибки какие - поправьте пожалуйста..

это так.. курсачь мой.. немного не доделан конечно, но тут-то и нужна ваша помощь.. алгоритм шифрования - двойной квадрат Уитстона.. мне бы всё это нанести на форму в делфи, что б было что-то вроде: http://i.piccy.info/i4/b8/aa/df22afa4f5adc6e42c178ad5dfbf.png

привожу код:

uses crt;
type
ttable=array[1..7,1..5] of char;
const
list:ttable=(('а', 'б','в','г','д'),
('е','ж','з','и','к'),
('л','м','н','о','п'),
('р','с','т','у','ф'),
('х','ц','ч','ш','щ'),
('ъ','ы','ь','э','ю'),
('я','.',',',':',' '));
{Степень перемешивания, с которой сформируются исходные таблицы}
mixdepth=1000;

procedure findxy(table:ttable;c:char;var x,y:byte);
var
p,o:byte;
begin
for o:=1 to 7 do
for p:=1 to 5 do
if table[o,p]=c then
begin
x:=p;
y:=o;
exit;
end;
end;

var
table1,table2:ttable;
p,o,p2,o2:byte;
i:integer;
c:char;
s,s2:string;
begin
{Заполним таблицы}
for o:=1 to 7 do
for p:=1 to 5 do
begin
table1[o,p]:=list[o,p];
table2[o,p]:=list[o,p];
end;
{Перемешаем таблицы}
randomize;
for i:=1 to mixdepth do
begin
{мешаем первую таблицу}
o:=random(7)+1;
p:=random(5)+1;
o2:=random(7)+1;
p2:=random(5)+1;
c:=table1[o,p];
table1[o,p]:=table1[o2,p2];
table1[o2,p2]:=c;
{Мешаем вторую таблицу}
o:=random(7)+1;
p:=random(5)+1;
o2:=random(7)+1;
p2:=random(5)+1;
c:=table2[o,p];
table2[o,p]:=table2[o2,p2];
table2[o2,p2]:=c;
end;
{Выведем таблицы на экран}
clrscr;
for o:=1 to 7 do
begin
for p:=1 to 5 do write(table1[o,p]:2);
write(' | ');
for p:=1 to 5 do write(table2[o,p]:2);
writeln;
end;
writeln('Введите текст который будет зашифрован используя только символы из таблиц:');
readln(s);
if odd(length(s)) then s:=s+' '; {Если длина нечётна, добавим пробел}
{Сформируем зашифрованую строку}
i:=1;
s2:='';
while i<length(s) do
begin
findxy(table1,s[i],p,o);
findxy(table2,s[i+1],p2,o2);
s2:=s2+table2[o,p2]+table1[o2,p];
inc(i,2);
end;
{Выведем зашифрованую строку}
writeln('Зашифрованая строка выглядит так:');
writeln(s2);
end.

Зачем такие извращения, когда можно обойтись одной кнопкой: